home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 1 (Walnut Creek)
/
Aminet - June 1993 [Walnut Creek].iso
/
aminet
/
biz
/
demo
/
imagefxdemo.dms
/
imagefxdemo.adf
/
rexx
/
ReqDemo.ifx
< prev
next >
Wrap
Text File
|
1992-09-24
|
1KB
|
57 lines
/*
* $VER: ReqDemo 1.00.00 (24.9.92)
*
* Arexx program for the Montage image processing system.
* Written by Thomas Krehbiel
*
* Demonstration of all the requesters available through Arexx.
*
*/
OPTIONS RESULTS
Message 'Requester demonstration...'
RequestNotify 'Notification requester.'
RequestResponse 'Response requester.'
IF rc ~= 0 THEN RequestNotify "There's no stopping me now!"
RequestNumber '"Number requester:"' 10
IF rc = 0 THEN RequestNotify 'You chose' result
RequestSlider '"Slider requester:"' 30 90 40
IF rc = 0 THEN RequestNotify 'You chose' result
RequestString '"String requester:"' '"Some text"'
IF rc = 0 THEN RequestNotify 'You chose' result
RequestFile '"Pick a file..."' 'RAM:' 'Default.file' '#?.junk'
IF rc = 0 THEN RequestNotify 'You chose' result
Gadget.1 = 'List Requester:'
Gadget.2 = 'Bread'
Gadget.3 = 'Veal'
Gadget.4 = 'Eggs'
Gadget.5 = 'Corn'
Gadget.6 = 'Beans'
ListRequest 6 Gadget
IF rc = 0 THEN RequestNotify 'You chose' Gadget.result
Gadget.1 = 'I/100/16/Width:/320'
Gadget.2 = 'I/100/30/Height:/200'
Gadget.3 = 'S/100/45/Name:/Untitled'
Gadget.4 = 'C/100/60/Depth:/4/One/Two/Three/Four'
Gadget.5 = 'X/100/74/Use Death Ray?/1'
ComplexRequest '"Complex Requester, Dude!"' 5 Gadget 350 105
IF rc ~= 0 THEN DO
RequestNotify 'Cancelled.'
END
ELSE DO
RequestNotify RESULT.1 RESULT.2 RESULT.3 RESULT.4 RESULT.5
END
EXIT 0